* lisp/window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.

Fixes: debbugs:10348

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f7d61b9cb105ca966956b26d604bc2d0f47ed91..f8f8e7eb695a60938efc85431014d68a69475d06 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-24  Juri Linkov  <juri@jurta.org>
+
+       * window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
+       (Bug#10348)
+
 2011-12-23  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/ange-ftp.el (ange-ftp-copy-file-internal): Check for

diff --git a/lisp/window.el b/lisp/window.el
index 16a38ca03c62e9932a7597f297010d636dc033fc..0014d85a81694599322da4691d99bbb0e0f7c24e 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -3604,7 +3604,7 @@ specific buffers."
                 (with-current-buffer (window-buffer window)
                   (let ((point (window-point-1 window))
                         (start (window-start window))
-                        (mark (mark)))
+                        (mark (mark t)))
                     `((buffer
                        ,(buffer-name buffer)
                        (selected . ,selected)